home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Suzy B Software 2
/
Suzy B Software CD-ROM 2 (1994).iso
/
stos
/
stos_75
/
mastmind.bas
(
.txt
)
< prev
Wrap
Atari STOS Basic
|
1987-04-21
|
78KB
|
202 lines
10 REM MASTERMIND v1.2
100 GOSUB
1000 IF
1010 RETURN
1020 REM *** INFO ***
1030 HIDE
1040 IF
1050 SHOW
1060 RETURN
1070 REM *** COLOURS ***
1080 SPRITE
1090 SCREEN COPY
110 GOSUB
1100 SCREEN COPY
1110 SCREEN COPY
1120 GOSUB
1130 GOSUB
1140 REPEAT
1150 VARNAME
1160 IF
1170 UNTIL
1180 SCREEN COPY
1190 REM ** COLOUR VALUE
120 REPEAT
1200 VARNAME
1210 SPRITE
1220 LOCATE
1230 INK
1240 VARNAME
1250 IF
1260 RETURN
1270 VARNAME
1280 GOSUB
1290 RETURN
130 REPEAT
1300 VARNAME
1310 GOSUB
1320 RETURN
1330 REM *** RESTORE COLOURS
1340 GET PALETTE
1350 RESTORE
1360 FOR
1370 READ
1380 NEXT
1390 RETURN
140 VARNAME
1400 REM *** SET UP ***
1410 FOR
1420 SPRITE
1430 SPRITE
1440 SPRITE
1450 NEXT
1460 CHANGE MOUSE
1470 SPRITE
1480 FOR
1490 VARNAME
150 UNTIL
1500 NEXT
1510 CHANGE MOUSE
1520 RETURN
1530 REM *** INITIALIZATION ***
1540 FADE
1550 KEY
1560 FOR
1570 READ
1580 NEXT
1590 GOSUB
160 ON
1600 RESERVE
1610 SCREEN COPY
1620 SCREEN COPY
1630 GOSUB
1640 FADE
1650 SHOOT
1660 RETURN
1670 REM *** ZONES ON ***
1680 SET ZONE
1690 SET ZONE
170 UNTIL
1700 SET ZONE
1710 SET ZONE
1720 SET ZONE
1730 SET ZONE
1740 SET ZONE
1750 SET ZONE
1760 SET ZONE
1770 SET ZONE
1780 SET ZONE
1790 SET ZONE
180 REM *** test
1800 SET ZONE
1810 SET ZONE
1820 SET ZONE
1830 SET ZONE
1840 SET ZONE
1850 SET ZONE
1860 SET ZONE
1870 SET ZONE
1880 RETURN
1890 REM *** ZONES OFF ***
190 VARNAME
1900 FOR
1910 RESET ZONE
1920 NEXT
1930 RETURN
1940 REM *** MUSIC DATA ***
1950 DATA
1960 DATA
1970 DATA
1980 REM *** COLOUR DATA ***
1990 DATA
20 REM by: Rob MacLennan
200 FOR
2000 DATA
2010 DATA
210 IF
220 NEXT
230 FOR
240 FOR
250 IF
260 NEXT
270 NEXT
280 VARNAME
290 IF
30 REM using: STOS
300 SPRITE
310 IF
320 IF
330 SPRITE
340 IF
350 NEXT
360 REM *** GET PEG ***
370 VARNAME
380 CHANGE MOUSE
390 PLAY
40 REM completed: 90-08-02
400 IF
410 RETURN
420 REM *** PUT PEG ***
430 IF
440 SPRITE
450 SPRITE
460 REDRAW
470 VARNAME
480 CHANGE MOUSE
490 VARNAME
50 DIM
500 SHOOT
510 RETURN
520 REM *** RESET PEGS ***
530 FOR
540 VARNAME
550 VARNAME
560 NEXT
570 RETURN
580 REM *** HOLES ON ***
590 WAIT VBL
60 GOSUB
600 FOR
610 SET ZONE
620 NEXT
630 RETURN
640 REM *** HOLES OFF ***
650 FOR
660 RESET ZONE
670 NEXT
680 RETURN
690 REM *** PLAY AGAIN? ***
70 GOSUB
700 VARNAME
710 IF
720 IF
730 IF
740 GOTO
750 REM *** WIN/LOSE ***
760 ANIM
770 ANIM
780 FOR
790 SPRITE
80 REM *** mainline
800 NEXT
810 FOR
820 RETURN
830 REM *** START ***
840 VARNAME
850 RETURN
860 REM *** QUIT ***
870 SCREEN COPY
880 SCREEN COPY
890 SCREEN COPY
90 FOR
900 GOSUB
910 SET ZONE
920 REPEAT
930 VARNAME
940 UNTIL
950 IF
960 SCREEN COPY
970 SCREEN COPY
980 REDRAW
990 GOSUB